home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 44 / 044.d81 / sousa jukebox (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  5.3 KB  |  175 lines
  1. 0 print"[147]":poke53274,.:sys65418
  2. 1 ifa=.thenpoke55,0:poke56,63:clr:a=1
  3. 5 ifa=1thena=2:load"routines v4",8,1
  4. 6 ifa=2thena=3:load"basic player.o",8,1
  5. 7 ifa=3thena=4:load"raster stuff.o",8,1
  6. 8 ifa=4thena=5:load"bload.o",8,1
  7. 10 fr$="":la$="":ov$=""
  8. 11 ns=7:dim na$(ns),fi$(ns)
  9. 12 sa=780:sx=781:sy=782
  10. 15 su=51206:sd=51209
  11. 16 poke1020,10:poke1021,16:poke1022,7:poke1023,33
  12. 20 gosub1000
  13. 30 gosub1500
  14. 40 gosub2000
  15. 50 gosub3000
  16. 60 gosub100
  17. 64 print"[193]re you sure you want to quit? ([217]/[206])":poke198,.
  18. 66 a=peek(203):ifa<>25anda<>39then66
  19. 68 ifa=39thengosub2020:goto50
  20. 70 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  21. 72 ifer<>63thenprint"[147]":end
  22. 74 load"hello connect",8
  23. 100 printla$""
  24. 110 fora=1to5:print"                                    "
  25. 120 next:print"[145][145][145][145][145][145]"
  26. 130 return
  27. 1000 poke53280,14:poke53281,1
  28. 1010 print"[147]";
  29. 1012 fora=1to5:
  30. 1013 print"[154]                                        ";
  31. 1014 next
  32. 1015 print"[154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  33. 1020 fora=.to14:print"[154][221]                                      [221]";:next
  34. 1030 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  35. 1032 fora=1to2:
  36. 1033 print"[154]                                        ";
  37. 1034 next
  38. 1035 print"                                       [157][148] "
  39. 1040 fora=217to242:pokea,peek(a)or128:next
  40. 1050 print"[149][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  41. 1060 print"[221][204][207][193][196][211][212][193][210] [208]resents:[221] "
  42. 1070 print"[149][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
  43. 1080 print"                    "
  44. 1090 print"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  45. 1100 fora=1to5
  46. 1110 print"[144][221]                        [221] "
  47. 1120 next
  48. 1130 print"[144][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
  49. 1135 print"                          "
  50. 1140 print"[145][145][145][145][145][145]  [211][207][213][211][193] [202][213][203][197][194][207][216]"
  51. 1150 print"  [163][163][163][163][163][163][163][163][163][163][163][163][163]"
  52. 1160 print"   [194]y [196]ave [205]arquis"
  53. 1170 print"                    "
  54. 1180 print"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  55. 1190 print"[221]        [195]opyright 1987        [221] "
  56. 1191 print"[150][221]                              [221] "
  57. 1192 print"[150][221]        [211]oftdisk, [201]nc.        [221] "
  58. 1200 print"[150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
  59. 1210 print"                                "
  60. 1220 fora=1tons:read na$(a),fi$(a):next
  61. 1230 print"[149]  [208]ress [211][208][193][195][197] to continue. [154]":poke198,.
  62. 1240 ifpeek(203)<>60then1240
  63. 1250 return
  64. 1500 print"[149][221]                  [221]"
  65. 1510 print"[221]   [211][207][213][211][193] [202][213][203][197][194][207][216]  [221] "
  66. 1520 print"[149][221]   [163][163][163][163][163][163][163][163][163][163][163][163][163]  [221] "
  67. 1530 print"[154]         [149][221] [194]y: [196]ave [205]arquis [221] [154]         "
  68. 1535 mm=1263:pokemm,160:poke54272+mm,14
  69. 1540 print"[154]         [149][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [154]         "
  70. 1545 mm=mm+40:pokemm,160:poke54272+mm,14
  71. 1550 print"[154]                              [154]       "
  72. 1555 mm=mm+40:pokemm,160:poke54272+mm,14
  73. 1560 print"[154]  [211][207][213][211][193] [202][213][203][197][194][207][216] player by [205]ike [205]aynard "
  74. 1565 mm=mm+40:pokemm,160:poke54272+mm,14
  75. 1570 print"[154] [146][129][146][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  76. 1575 mm=mm+40:pokemm,160
  77. 1580 fora=1to7
  78. 1590 print"[154] [129][146][221]                                    [221]"
  79. 1595 mm=mm+40:pokemm,160:poke54272+mm,6
  80. 1597 ifa=4thenprint"[145][144]--->"tab(34)"<---"
  81. 1600 next
  82. 1610 print"[154] [129][146][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  83. 1615 mm=mm+40:pokemm,160:poke54272+mm,6
  84. 1620 fora=1to5
  85. 1630 print"[154] [129][146][221]                                    [221]"
  86. 1635 mm=mm+40:pokemm,160:poke54272+mm,6
  87. 1640 next
  88. 1650 print"[154] [146][129][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  89. 1655 mm=mm+40:pokemm,160:poke54272+mm,6
  90. 1660 print"[154]                                       "
  91. 1665 mm=mm+40:pokemm,160:poke54272+mm,6
  92. 1670 fora=217to242:pokea,peek(a)or128:next
  93. 1680 return
  94. 2000 printfr$;
  95. 2010 fora=1to7:printov$"[156]"na$(a):next
  96. 2015 se=4
  97. 2016 ls$=""
  98. 2020 gosub100:printla$"[213]se the [195][210][211][210] keys to scroll the"
  99. 2025 print"music up and down."
  100. 2030 print"[208]ress [[210][197][212][213][210][206]] to hear the music    "
  101. 2040 print"that the arrows point to."
  102. 2050 print"[198]1 - [208]lay all ............ [198]7 - [209]uit"
  103. 2060 return
  104. 3000 poke198,.:ab=.:pa=.
  105. 3005 b=peek(653):a=peek(203):ifa<>7anda<>2anda<>4anda<>3anda<>1then3000
  106. 3010 if((b=.)and(a=2))or((b)and(a=7))then gosub3100:goto3000
  107. 3020 if((b=.)and(a=7))or((b)and(a=2))then gosub3200:goto3000
  108. 3030 if(a=1)then4000
  109. 3040 if(a=4)then4100
  110. 3050 if(a=3)then return
  111. 3060 goto3000
  112. 3100 se=se-1:ifse=.thense=ns
  113. 3110 tp=se-3:iftp<1thentp=ns+tp
  114. 3120 syssd:poke648,216:syssd:poke648,4:printfr$ov$"[156]"na$(tp)
  115. 3130 return
  116. 3200 se=se+1:ifse=ns+1thense=1
  117. 3210 bo=se+3:ifbo>nsthenbo=bo-ns
  118. 3220 syssu:poke648,216:syssu:poke648,4:printla$ov$"[156]"na$(bo)
  119. 3230 return
  120. 4000 pl=se
  121. 4010 gosub6000
  122. 4040 goto3000
  123. 4097 :
  124. 4098 :
  125. 4100 mm=se:pa=-1:forzz=setons
  126. 4110 pl=zz
  127. 4120 gosub6000
  128. 4150 gosub3200
  129. 4155 if(ab)thengosub2020:goto3000
  130. 4160 next:if(mm=1)or(ab)thengosub2020:goto3000
  131. 4170 forzz=1tomm-1
  132. 4180 pl=zz
  133. 4190 gosub6000
  134. 4220 gosub3200
  135. 4225 if(ab)thengosub2020:goto3000
  136. 4230 next:gosub2020:goto3000
  137. 6000 ok=1:he=.:ifls$=fi$(pl)then6540
  138. 6001 ls$=fi$(pl)
  139. 6003 gosub100:li$="[204]oading "+na$(pl):li=len(li$):ta=20-li/2
  140. 6005 print""tab(ta)li$
  141. 6010 sys828,40960,"m."+fi$(pl):sys828,53096,"w."+fi$(pl)
  142. 6500 ad=1:open3,8,3,"c."+fi$(pl):fora=1to5:cr$(a)="":next
  143. 6510 fori=.to1:get#3,a$:i=st:ifa$=chr$(13)thenad=ad+1:goto6530
  144. 6520 cr$(ad)=cr$(ad)+a$
  145. 6530 next:close3
  146. 6540 if(ok)thensys52222,40960:ok=.
  147. 6550 poke198,.:gosub100:print"";:fora=1to5:print""cr$(a):next
  148. 6553 print"";:fora=1to5:print"[154] [146][150][221]":next
  149. 6555 print"[154]          [208]ress "chr$(34)"[200]"chr$(34)" for help.          "
  150. 6560 ke=peek(203):if(key=29)or(key=60)or(key=10)or(key=62)then6562
  151. 6561 ifpeek(2)<>255then6560
  152. 6562 if(key=60)and(he)thenhe=.:goto6550
  153. 6563 if(key=10)and(pa)thenab=-1:goto6570
  154. 6564 if(key=29)and(not(he))thengosub7500:goto6560
  155. 6565 if(key=60)or(key=29)or(key=10)then6560
  156. 6570 gosub100
  157. 6572 sys52225
  158. 6575 print"[154]  [211][207][213][211][193] [202][213][203][197][194][207][216] player by [205]ike [205]aynard "
  159. 6580 if(not(pa))thengosub100:gosub2020
  160. 6590 return
  161. 7500 print"[154]  [211][207][213][211][193] [202][213][203][197][194][207][216] player by [205]ike [205]aynard "
  162. 7510 gosub100:print" [208]ress "chr$(34)"[209]"chr$(34)" to quit current music."
  163. 7520 ifnot(pa)thenprint:goto7540
  164. 7530 print" [208]ress "chr$(34)"[193]"chr$(34)" to abort play all."
  165. 7540 print" [208]ress [211][208][193][195][197] to re-display credits."
  166. 7550 he=-1:return
  167. 10000 rem name of song (menu),name of             person,filename
  168. 10001 data "[205]arch: [212]he [199]ladiator",gladiatorsousa
  169. 10002 data "[205]arch of [210]ifle [210]egiment",rifleregiment
  170. 10003 data "[211]emper [198]idelis",semper.fidelis
  171. 10004 data "[205]arch / [206]ational [198]encibles",fencibles
  172. 10005 data "[212]he [212]hunderer",thunderer
  173. 10006 data "[212]he [215]ashington [208]ost [205]arch",washingtonpost
  174. 10007 data "[212]he [208]icadore [205]arch",picadore
  175.